home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / pascal / tegl6b.zip / INTROPAK.EXE / lha / ANIMTST3.PAS < prev    next >
Pascal/Delphi Source File  |  1991-04-06  |  2KB  |  67 lines
  1. {*********************************************************}
  2. {        TEGL Windows ToolKit II           }
  3. {      Copyright (C) 1990, TEGL Systems Corporation      }
  4. {         All Rights Reserved.              }
  5. {*********************************************************}
  6.  
  7. Uses
  8.     videochk,
  9.     tgraph,
  10.     teglintr,
  11.     animunit,
  12.     TEGLmain,
  13.     TEGLUnit,
  14.     fastgrph;
  15.  
  16. const
  17. {$I animtst1.inc}
  18.  
  19. var Oriental   : animateobject;
  20.     OrientalFS : imagestkptr;
  21.  
  22.  
  23. {$F+}
  24. function OrientalBow(Frame:imagestkptr; MouseClickPos: msclickptr) : word;
  25. {$F-}
  26.    begin
  27.       hideimage(Frame);
  28.  
  29.       hidemouse;
  30.       ResetFrame(Oriental,1);
  31.       Animateinit;
  32.       origin(Oriental,frame^.x,frame^.y);
  33.       animate(Oriental,8);
  34.       showmouse;
  35.  
  36.       showimage(Frame,frame^.x,frame^.y);
  37.       OrientalBow := 1;
  38.    end;
  39.  
  40.  
  41. begin
  42.    SetVideoChoices(TG_VGA,false);
  43.    EasyTEGL;
  44.  
  45.    init(Oriental);
  46.    addframe(Oriental,@imageChina,0,0,55,37,350,1200,55,black);
  47.    addframe(Oriental,@imageChina,0,0,55,37,150,1200,56,black);
  48.  
  49.    addframe(Oriental,@imageChina2,0,0,55,37,75,1100,55,black);
  50.    addframe(Oriental,@imageChina2,0,0,55,37,75,1100,56,black);
  51.  
  52.    addframe(Oriental,@imageChina3,0,0,55,37,150,900,55,black);
  53.    addframe(Oriental,@imageChina3,0,0,55,37,150,900,56,black);
  54.    addframe(Oriental,@imageChina3,0,0,55,37,600,1100,56,black);
  55.  
  56.    addframe(Oriental,@imageChina2,0,0,55,37,150,1100,0,black);
  57.    addframe(Oriental,@imageChina,0,0,55,37,500,1100,55,black);
  58.  
  59.    pushimage(15,getmaxy-65,15+37,getmaxy-65+55);
  60.    putpict(15,getmaxy-65,@imageChina,black);
  61.    DefineMouseClickArea(stackptr,0,0,37,55,true,Orientalbow,MSClick);
  62.    OrientalFS := stackptr;
  63.    setframemobility(stackptr,false);
  64.  
  65.    TEGLSupervisor;
  66. end.
  67.